home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tools / arexx-scripts / adpro-arexx / mitimg.lha / emboss.adpro.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-07-07  |  711 b   |  35 lines
  1. /* 
  2. ** This ARexx program gives the images an embossed look.
  3. ** Converts <length> images to an embossed look starting with file 
  4. ** source.<start>.  Filenames are in the form source.xxx and dest.xxx.
  5. */
  6.  
  7. PARSE ARG source dest start length
  8.  
  9. say 'START'
  10. say source dest start length
  11.  
  12. OPTIONS RESULTS
  13.  
  14. ADDRESS "ADPro"
  15.  
  16. frame=start
  17. do length
  18.      frame=RIGHT(frame,3,'0')
  19.     framestr=source||frame'.iff'
  20.     Say 'Loading Frame #'frame 'from 'framestr
  21.     LOAD framestr 
  22.     OPERATOR 'COLOR_TO_GRAY'
  23.     OPERATOR 'LINE_ART'
  24.     OPERATOR 'NEGATIVE'
  25.     SAVE 'RAM:TEMP' RAW
  26.     OPERATOR 'NEGATIVE'
  27.     LOAD 'RAM:TEMP' 2 2 50
  28.     EXECUTE
  29.     framestr=dest||frame'.iff'
  30.     SAY 'Saving  Frame #'frame 'to   'framestr
  31.     SAVE framestr IMAGE
  32.  
  33.     frame=frame+1
  34. end
  35.